home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1995 October / EnigmA AMIGA RUN 01 (1995)(G.R. Edizioni)(IT)[!][issue 1995-10][Aminet 7].iso / Aminet / util / wb / Picticon1_4.lha / Picticon / Source / mod / lists.e < prev    next >
Text File  |  1995-06-07  |  418b  |  18 lines
  1. OPT MODULE
  2.  
  3. MODULE    'exec/nodes','exec/lists'
  4.  
  5. EXPORT PROC isfirst(node:PTR TO ln)
  6.     IF node.pred
  7.         IF node.pred.pred=0 THEN RETURN TRUE
  8.     ENDIF
  9. ENDPROC FALSE
  10.  
  11. EXPORT PROC islast(node:PTR TO ln)
  12.     IF node.succ
  13.         IF node.succ.succ=0 THEN RETURN TRUE
  14.     ENDIF
  15. ENDPROC FALSE
  16. EXPORT PROC ishead(node:PTR TO ln) IS IF (node.pred=0) THEN TRUE ELSE FALSE
  17. EXPORT PROC istail(node:PTR TO ln) IS IF (node.succ=0) THEN TRUE ELSE FALSE
  18.